program test4(input,output);
var
   a : integer;
   i : integer;

begin
   a := 10;
   i := 0;
   repeat
      i := i -1;
      a := a + 1
   until a = 20;

   //writeln(i) 输出 -10
end.